10 POKE53280,0:POKE53281,0:REM 90:02:15
20 PRINT"[147][156]    ** TPUG EDUCATIONAL DISK ED-2 **"
30 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
40 DIMA$(15)
50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
60 INPUT"CHOOSE(1-15):";A$
70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
90 FORT=1TO1500:NEXT:PRINT"[147]  LOADING......  "A$(A)
100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
59999 :
60001 DATA "ALPHABETIZING"
60002 DATA "ALPHABETTER"
60003 DATA "ALPHASHIFT"
60004 DATA "ALPHABET QUIZ"
60005 DATA "ALPHA 1 A"
60006 DATA "ALPHA 2 A"
60007 DATA "ALPHA 3 A"
60008 DATA "SWAP-ANIMAL"
60009 DATA "SWAP-VEGETABLE"
60010 DATA "SWAP-MINERAL"
60011 DATA "WORD MACHINE"
60012 DATA "TEACHER INFO"
60013 DATA "**"
60014 DATA "**"
60015 DATA "**"
60016 DATA "**"